home *** CD-ROM | disk | FTP | other *** search
- ;char game_port();
-
- EXTRN _memory_model:byte
-
- _TEXT SEGMENT BYTE PUBLIC 'CODE'
- ASSUME CS:_TEXT
- PUBLIC _game_port
- _game_port proc near
- sub bl,bl ;return value
- mov dx,201H ;game port address
- in al,dx ;get value
- test al,0fh ;test for presence
- jnz L1 ;jump if no port
- inc bl ;else return 1
- L1: mov al,bl ;set return value
- cmp _memory_model,0 ;quit
- jle Quit ;
- db 0CBh ;RET far
- Quit: ret ;RET near
- _game_port endp
- _TEXT ENDS
- END